home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / merlin.bas < prev    next >
Encoding:
BASIC Source File  |  1984-09-08  |  2.1 KB  |  68 lines
  1. 1 CLEAR 1000
  2. 5 DIM A(6,32)
  3. 7 COLOR 1,7
  4. 20 CLS
  5. 25 FOR Z=1 TO 10 : PRINT : NEXT Z
  6. 30 PRINT "     PLEASE THINK OF A WHOLE NUMBER FROM 0 TO 63"
  7. 40 PRINT : FOR Z=1 TO 1000 : NEXT Z : REM TIME STALLER
  8. 45 PRINT:PRINT:PRINT
  9. 50 PRINT "     PRESS <ENTER> WHEN YOU ARE READY TO CONTINUE"
  10. 60 PRINT:INPUT X$
  11. 70 CLS
  12. 80 FOR J=1 TO 6
  13. 85 FOR Z=1 TO 6 : PRINT : NEXT Z
  14. 90 FOR K=1 TO 32
  15. 100 READ A(J,K)
  16. 105 IF A(J,K)<10 THEN PRINT " ";
  17. 110 PRINT A(J,K),
  18. 120 NEXT K
  19. 125 FOR Z=1 TO 6 : PRINT : NEXT Z
  20. 127 COLOR 4
  21. 130 INPUT "DOES YOUR NUMBER APPEAR ON THE SCREEN (Y or N)";N$
  22. 135 COLOR 1
  23. 140 IF N$="Y" THEN S=S+2^(J-1):REM "["IS EXPONENTIATION
  24. 150 IF N$<>"N" AND N$<>"Y" THEN 130
  25. 153 N$=" "
  26. 154 COLOR 1
  27. 155 CLS
  28. 160 NEXT J
  29. 170 CLS
  30. 172 FOR Z=1 TO 6 : PRINT : NEXT Z
  31. 173 FOR Z=1 TO 300:NEXT Z
  32. 175 PRINT "     OKAY, CONCENTRATE VERY HARD NOW ..."
  33. 180 PRINT "     I AM READING YOUR MIND ............"
  34. 183 FOR Z=1 TO 700:NEXT Z
  35. 184 GOSUB 402
  36. 185 PRINT:PRINT
  37. 186 FOR K=1 TO 2
  38. 188 PRINT "     ";STRING$(57,"=")
  39. 189 PRINT : PRINT
  40. 190 NEXT K
  41. 192 GOSUB 401
  42. 193 FOR Z=1 TO 300:NEXT Z
  43. 194 PRINT "         AHA ! YOU PICKED THE NUMBER ";
  44. 195 PLAY "CEG>C<G>C" : COLOR 4 : PRINT S
  45. 196 FOR Z=1 TO 2500:NEXT Z
  46. 197 PRINT:PRINT:COLOR 0,15,0
  47. 198 INPUT " .... AGAIN (Y/N) "; X$
  48. 199 IF X$="Y" OR X$="y" THEN 1 ELSE 500
  49. 200 DATA 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35
  50. 210 DATA 37,39,41,43,45,47,49,51,53,55,57,59,61,63
  51. 230 DATA 2,3,6,7,10,11,14,15,18,19,22,23,26,27,30,31,34,35
  52. 240 DATA 38,39,42,43,46,47,50,51,54,55,58,59,62,63
  53. 260 DATA 4,5,6,7,12,13,14,15,20,21,22,23,28,29,30,31,36,37
  54. 270 DATA 38,39,44,45,46,47,52,53,54,55,60,61,62,63
  55. 290 DATA 8,9,10,11,12,13,14,15,24,25,26,27,28,29,30,31,40,41
  56. 300 DATA 42,43,44,45,46,47,56,57,58,59,60,61,62,63
  57. 320 DATA 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,48,49
  58. 330 DATA 50,51,52,53,54,55,56,57,58,59,60,61,62,63
  59. 350 DATA 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49
  60. 360 DATA 50,51,52,53,54,55,56,57,58,59,60,61,62,63
  61. 401 COLOR 2 : RETURN
  62. 402 COLOR 3 : RETURN
  63. 403 COLOR 5 : RETURN
  64. 404 COLOR 6 : RETURN
  65. 405 COLOR 14 : RETURN
  66. 406 COLOR 1 : RETURN
  67. 500 SYSTEM : END
  68.